From: Juri Linkov Date: Sun, 20 Mar 2022 18:59:04 +0000 (+0200) Subject: * lisp/tab-bar.el (tab-bar-new-tab-to): Don't funcall const values. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~2370^2~1026 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a31be116aeee43b7a2e14d53db226933d4e8a012;p=emacs.git * lisp/tab-bar.el (tab-bar-new-tab-to): Don't funcall const values. Filter out the values 'clone' and 'window' of 'tab-bar-new-tab-choice' from function call. --- diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 245a55a671f..cf1cca4af3f 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -1384,7 +1384,8 @@ After the tab is created, the hooks in (split-window) (delete-window)))) (let ((buffer - (if (functionp tab-bar-new-tab-choice) + (if (and (functionp tab-bar-new-tab-choice) + (not (memq tab-bar-new-tab-choice '(clone window)))) (funcall tab-bar-new-tab-choice) (if (stringp tab-bar-new-tab-choice) (or (get-buffer tab-bar-new-tab-choice)